home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / dtype / cdt_39_10.lha / cdt / source / RCS / classbase.i,v < prev    next >
Text File  |  1995-06-04  |  2KB  |  110 lines
  1. head    39.1;
  2. access;
  3. symbols
  4.     V39_10:39.1
  5.     c3910:39.1
  6.     V39_9:39.1;
  7. locks; strict;
  8. comment    @# @;
  9.  
  10.  
  11. 39.1
  12. date    95.05.10.15.00.21;    author StRuppert;    state Exp;
  13. branches;
  14. next    ;
  15.  
  16.  
  17. desc
  18. @initial
  19. @
  20.  
  21.  
  22. 39.1
  23. log
  24. @*** empty log    message    ***
  25. @
  26. text
  27. @;
  28. ; $PROJECT: c.datatype
  29. ;
  30. ; $VER: classbase.i 39.1 (10.05.95)
  31. ;
  32. ; by
  33. ;
  34. ; Stefan Ruppert , Windthorststraße 5 , 65439 Flörsheim , GERMANY
  35. ;
  36. ; (C) Copyright 1995
  37. ; All Rights Reserved !
  38. ;
  39. ; $HISTORY:
  40. ;
  41. ; 10.05.95 : 039.001 : initial
  42. ;
  43.  
  44.           IFND CLASSBASE_I
  45. CLASSBASE_I SET 1
  46.  
  47. ;-----------------------------------------------------------------------
  48.  
  49.           INCLUDE "exec/types.i"
  50.           INCLUDE "exec/libraries.i"
  51.           INCLUDE "exec/lists.i"
  52.           INCLUDE "exec/semaphores.i"
  53.           INCLUDE "utility/tagitem.i"
  54.  
  55.           INCLUDE "c_rev.i"
  56.  
  57. ;-----------------------------------------------------------------------
  58.  
  59.     STRUCTURE ClassBase,LIB_SIZE
  60.           UWORD   cb_UsageCnt
  61.           ULONG   cb_SysBase
  62.           ULONG   cb_DOSBase
  63.           ULONG   cb_IntuitionBase
  64.           ULONG   cb_GfxBase
  65.           ULONG   cb_UtilityBase
  66.           ULONG   cb_IFFParseBase
  67.           ULONG   cb_DataTypesBase
  68.           ULONG   cb_SuperClassBase
  69.           ULONG   cb_SegList
  70.           STRUCT  cb_Lock,SS_SIZE
  71.           ULONG   cb_Class
  72.     LABEL ClassBase_SIZEOF
  73.  
  74. ;-----------------------------------------------------------------------
  75. ; set here some defines for the generic classinit.asm module
  76. ; Note: that define a string using a equ is only working if the string
  77. ;       is larger than 4 characters (SAS asm) ! In this case it works,
  78. ;       because of the '.datatype' suffix !
  79.  
  80. DATATYPENAME   equ 'c.datatype'
  81. ENGINE         equ _ObtainCEngine
  82.  
  83.           XREF _ObtainCEngine
  84.  
  85. ;-----------------------------------------------------------------------
  86.  
  87.           LIBINIT
  88.  
  89.           LIBDEF  _LVODispatch
  90.  
  91. ;-----------------------------------------------------------------------
  92.  
  93. CALL MACRO <Function_Name>
  94.           xref _LVO\1
  95.           jsr _LVO\1(A6)
  96.       ENDM
  97.  
  98. ;-----------------------------------------------------------------------
  99.  
  100. GO   MACRO <Function_Name>
  101.           xref _LVO\1
  102.           jmp _LVO\1(A6)
  103.       ENDM
  104.  
  105. ;----------------------------------------------------------------------
  106.  
  107.           ENDC    ; CLASSBASE_I
  108.  
  109. @
  110.